(*      File name: Conversions.def                              *)
(*      Creation : Orginal m2m File                             *)
(*      Function : Number to string conversion                  *)
(*      By       : ETH                                          *)
(*                                                              *)
(*
*    Copyright (c) 1985,1986,1987,1988,1989 by
*    ana-systems, Foster City, California.
*    All Rights Reserved.
*
*    This software is furnished under a license and may be used and copied
*    only  in accordance with  the  terms  of  such  license and  with the
*    inclusion of the above copyright notice.  This software or  any other
*    copies thereof may not be provided or otherwise made available to any
*    other  person.   No title to and ownership of the  software is  herby
*    transferred.
*
*    The information in this software is  subject to change without notice
*    and  should  not be construed as a commitment by ana-systems.   No
*    warranty is implied or expressed.
* 
*    SCCID  = "1.1    1/26/86"; 
*)
(*      History of modifcation                                  *)
(*      Date            Who             Why                     *)
(*      7/5/84          Morris          Change to BTS           *)
(*                                                              *)
DEFINITION MODULE Convert;                  (* LG *)
   
  EXPORT QUALIFIED IntToStr,StrToInt, 
                   CardToStr, StrToCard,
                   NumToStr, StrToNum,
                   OctalToStr,HexToStr;
                   

  PROCEDURE OctalToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
                        VAR success : BOOLEAN);
    (* conversion of an octal number to a string *) 

  PROCEDURE HexToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
                        VAR success : BOOLEAN);
    (* conversion of a hexadecimal number to a string *) 

  PROCEDURE CardToStr  (card: CARDINAL; VAR str: ARRAY OF CHAR;
                               width : CARDINAL;
                           VAR success : BOOLEAN);
  
    (* conversion of a cardinal decimal number to a string *) 

  PROCEDURE IntToStr      (int: INTEGER; 
                           VAR str: ARRAY OF CHAR; 
                               width : CARDINAL;
                           VAR success : BOOLEAN);
  
  PROCEDURE NumToStr      (num: CARDINAL; 
                           VAR str: ARRAY OF CHAR; 
                               base :  CARDINAL;
                               width : CARDINAL;
                           VAR success : BOOLEAN);

  PROCEDURE StrToInt ( VAR str: ARRAY OF CHAR;
                       VAR int : INTEGER;
                       VAR success : BOOLEAN);

  PROCEDURE StrToCard ( VAR str: ARRAY OF CHAR;
                       VAR card : CARDINAL;
                       VAR success : BOOLEAN);

  PROCEDURE StrToNum ( VAR str: ARRAY OF CHAR;
                       VAR num : CARDINAL;
                          base :  CARDINAL;
                       VAR success : BOOLEAN);

    (* conversion of an integer decimal number to a string *) 
END Convert.
